home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b5.d64
/
dual'drive.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
273b
|
15 lines
9000 //
9010 FUNC DUAL'DRIVE CLOSED
9020 DIM S$ OF 2
9030 OPEN FILE 78,"0:DUALDRIVE.STATUS",READ
9040 S$:=STATUS$
9050 IF S$="00" THEN
9060 READ FILE 78: DRIVES
9070 ELSE
9080 DRIVES:=FALSE
9090 ENDIF
9100 CLOSE FILE 78
9110 RETURN DRIVES
9120 ENDFUNC DUAL'DRIVE
9130 //